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EDTSWFLOCLIN = find a specified Line by number 19=3007 138% 05:08:67 VAX-11 Bliss-32 V4.0-74 Page 1 
14-Sep-1984 25:54 DISKSVMSMASTER: CEDT.SRCJWFLOCLIN.BLI;1 (1) 
ZTITLE ‘EDTSWFLOCLIN = find a specified Line by number' 
MODULE EDTSWFLOCLIN ! Find a specified Line b 
al = 'v04-000' ! 
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BEGIN 


See Re AAA AAAAAAAARARAAAAAAAARERAARETEA ARATE ARATE 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
' DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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; IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
tt ONLY IN ACCORDANCE WITH THE TERMS OF SUCH bene’ ae hy Be, | 
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i E PRO , 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. « 
' * 
iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

* 

® 

® 

* 

® 
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!® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 
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H NOT SUPPLIED BY DIGITAL. 


++ 
FACILITY: EDT == The DEC Standard Editor 


ABSTRACT: 
Find a specified Line, given its number. 
ENVIRONMENT: Runs at any access mode - AST reentrant 
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Re AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 
? MODIFIED BY: 
Of 1-001 - Original. DJS 23-Feb-1981. This module was created by 
extracting routine WFLOCLIN from module EDTWF. 
4 Be 1-008 - Regularize headers. JBS 19-Mar-1981 
4 4 1-003 - Use the ASSERT macro. JBS 01-Jun-1981 
48 04 1-004 - Modify to use new compare macro. STS 20-Oct-1982 
$7 3 1-005 - Improve Listing appearance. JBS 20-Jun-1983 
1 005 
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EDTSWFLOCLIN  EDTSWFLOCLIN = find a specified Line by number 16-Sep-1986 02:08:29  VAX*11 Bliss- . 
FO4.000 . sore ese 18-Sep- Bhs $58 ey eee eal Stea cesT saeSurocuin.enset” cos 


Declarations Sep 
SSBTTL "Declarations' 
! TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM’ ; 


3 1 
i i: 
& 9 
. 
4 . 
20 rk } FORWARD ROUTINE 
61 38 EDTSSLOC_LN; 
8 11 
64 i i INCLUDE FILES: 
66 5 . 
3 6 5 , REQUIRE "EDTSRC:EDTREQ';: 
; 63 40 1! 
: 70 1 | MACROS: 
: fs 4 1 i NONE 
3 7 4 1! 
; a 45 ! EQUATED SYMBOLS: 
> 76 23 1/ NONE 
: 77 8 1! 
; 28 0639 | OWN STORAGE: 
: 80 51 15 NONE 
>: Bl 06%¢ 1 
; : 0653 i EXTERNAL REFERENCES: 
: 4 0655 1: In the routine 
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EDTSWFLOCLIN EDTSWFLOCLIN = find a specified Line by number 16-Sep-1984 02:08:29 VAX-11 Bliss-32 V4.0-74 Pa 3 

weet EDTSSLOC_LN = find a specified Line by number 12-8ep-19 4 95:98:92 DIEKSVMGHASTERSCEDT SRCTWFLOCLIN.BLICi (3) 

; ! ZSBTTL "EDTSSLOC_LN = find a specified Line by number' : 
; 8 1 GLOBAL ROUTINE EDTSSLOC_LN ( ! Find a specified Line, given its number ‘ 
; 9 3 } LINE NUM ! Number of Line to find ° 
; = 3 
a 2 1.9 : 
; 38 6¢ 1 !+¢ ; 
3 $7 7 : FUNCTIONAL DESCRIPTION: : 
;. 65 1! This procedure searches for a specified Line number. If the Line number : 
; 38 zz is found, the buffer is left postioned there, if not, the buffer is positioned ‘ 
oo 1} to the first Line with a number larger than the line to be located. The value ‘ 
: a8 3 ' returned is 1 if the actual Line was located and 0 otherwise. : 
; 190 0 1 ! FORMAL PARAMETERS: 3 
3 101 671 1! ; 
3 106 a ! LINE_NUM the address of the Line number to be located. : 
; 1046 74 1°! IMPLICIT INPUTS: : 
: 188 Ri EDTSSA_WK_LN 
: 199 8678 1! allt: ‘ 
; 108 gore 1 ! IMPLICIT OUTPUTS: 3 
; 109 79 «1! 3 
; 110 0680 1! EDTSSA_WK_LN : 
3.67201 9681 1! 3 
$ \N¢ pens 1 ! ROUTINE VALUE : 
; («11 Be 2 3 
: 116 84 1! 1 = the Line was found : 
3 132 eH ; } 0 = the Line was not found, positioned right after where it should have been : 
3; «117 bea? 1 ! SIDE EFFECTS: ; 
; «(118 bees 1! 3 
3; «119 689 1! NONE 3 
: 120 0690 1! F 
: 121 0691 1 !-- 3 
> | § 54 1 3 
3; (1 069 BEGIN : 
: 126 0694 3 
s 125 Bene EXTERNAL ROUTINE é 
: 126 96 EDT$S$RD_PRVLN, : 
3 ist 0697 EDTSSRD_NXTLN; 3 
: 128 0698 3 
3 19 8998 eaten, : 3 
: : . oof EDTSSA_WK_LN : REF LIN_BLOCK; ! Pointer to current Line : 
: 132 44 MAr 3 
; i 4 LINE_NUM : REF LN_BLOCK; : 
: 135 705 LOCAL 3 
» % 7 RELATI, : 
3 HA , i RELAT2; : 
: 139 709 RELAT1 = 2: ! make sure no match first time : 
; 140 710 3 
; «141 711 PY 
: 142 0712 BEGIN : 
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IF (,.RELAT1 EQL .RELAT2) THEN EXITLOOP; 
CASE .RELAT2 FROM -1 TO 1 OF 
SET 


{-1] : ! Move forward to find the Line 
IF ( NOT EDTSSRD_NXTLN ()) THEN RETURN (0); ! Return if at end of buffer 


J: ' We are on the Line, return success 
RETURN (1); 


C1) : ! Move backward to find the Line 
IF ( NOT EDTSSRD_PRVLN ()) THEN RETURN (0); ! Return if at beginning of buffer 
TES; 
2 al = -.RELAT2; ! Remember previous relation 
UNTIL 0; 
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IF (,RELAT2 EQL -1) THEN EDTSSRD_NXTLN (); 
RETURN (0); 
END; 
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! of routine EDTSS$LOC_LN 


-TITLE EDTSWFLOCLIN EDTSWFLOCLIN - find a specified Li 
ne by number 
-IDENT \v04-000\ 


~-EXTRN EDTSSRD a EDTSS$RD_NXTLN 
-EXTRN EDTSSA_QK_ 


; RELAT2 = CMPLNO (EDTSSA_WK_LN CLIN_NUM], .LINE_NUM); | 
i 3 | ee jretetiqnenip sotunen the current Line and the corges Line has gone from | 
i =] 1, or vice versa, without touching 0 in between, then the target Line is 
-PSECT _EDTSCODE,NOWRT, SHR, PIC.2 
| 


001C¢ 00000 -ENTRY EDTS$SLOC LN. Seve R2,R3,R4 : 0658 
54 000000006 00 H 3 9002 MOVAB E TSSRD AXTLN, R4 : 

53 02 00 0000 MOVL L : 0709 

50 000000006 00 01 C1 0000C 1$ ADDL  EDISSA WK_LN, RO : 0713 
51 04 AC 04 (C1 14 ADDL th E alin R1 : 
61 Ad BI 19 CMPW wo, tl ; 
0 E 0001D BGEQU 3§ : 
1 cE 1F MNEGL #1, RELAT2 : 
19 11 00022 BRB rs 3 : 


10 
etob CEB Tokcbeta’ = fing o Sbecifisg tins by nuser 1$-ep-1964 95:08: g? UTS cdumGhASteRsceDT sacSurLocuIN.eLIc;@ (33 


11 12 00024 28 0 648 : 
06 BC of 0¢ ; cr (RO), @LINE_NUM : 
” 90 ANE GL i. RO 
0031 38: ea : | 
0¢ eS ; 
100 4s: MOV. = #1, - RO : 
10¢ : MOVL RO. RELAT2 : 
4! 6$: Bra, Ma » RELAT2 : 0720 
oo? FFFFFFFF | BF CF 000 CASEL RELAT2, #=1, #2 ; 0722 
F DO04A 7$: " -7$,- : 
WORD ae . | 
64 te it 8$: CALLS r, EDTSS$RD_NXTLN ; 0727 
50 pd 98: ROVL #1, RO ; 0730 
000000006 FB 108: CALLS #0, F TSSRD_PRVLN + 0734 
é 11$: BLBC RO, 33 : 
5 cE MNEGL RELAT » RELATI : 0738 
AG BRB 1 : 0711 
FFFFFFFF © 8F 4 p} 00 : 128: CMPL RELAT2, #1 ; 0746 
64 p rea 0071 CALLS #0, EDTSSRD_NXTLN : 
pb, 0074 13$ CLRL OR 0749 
0076 RET 


; Routine Size: 119 bytes, Routine Base: _EDTSCODE + 0000 


$7ae i ! <BLF /PAGE> 
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; COMMAND QUALIFIERS 


: Size: 119 + 0 data bytes 
3; Run Time: ofS 

; Elapsed Time: 716. 

; Lines/CPU Min: 7 

3; Lexemes/CPU-Min: 1156 

3 Y Used: 87 pages 

; Compilation Complete 
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; 18s ; ; fe ELUDOM 

: PSECT SUMMARY 

3 Name Bytes 

: EDTSCODE 119 NOVEC,NOWRT, RD, 
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! of module EDTSWFLOCLIN 


Attributes 


EXE, SHR, 
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ymbo 
File Total ioaded 


Percent 


so 


LCL, REL, CON, PIC,ALIGN(2) 


Pages Processing 
Mapped Time 
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